;Metodos para la tabla de clasificadores.
;Los clasificadores tienen la estructura de listas ((CONDICION) (ACCION))

(defparameter *clasificadores* (list ))

(defun posicionClasificador (msg)
  (search (list msg) *clasificadores* :test 'equalp)
  )

(defun addClasificador (msg)
  (if (not (posicionClasificador msg)) 
      (setf *clasificadores* (append *clasificadores* (list msg)))
      )
  )

(defun getClasificadorAt (i)
  (nth i *clasificadores*)
  )

(defun resetClasificadores ()
  (setf *clasificadores* (list ))
  )

;Metodos auxiliares
(defun dame-condicion (regla)
  (first regla)
  )

(defun dame-accion (regla)
  (second regla)
  )

